






- j^ ic. - <ail! jaIjV <-«ui! Aiuu^aJi ^ dj^j; Syntax Errors fUaii 
. IDE *A \o\ \ a^^ljobOJ \ ^ lie. (, ^ i ** \ A .a \Qi ^ ysLii, ~ aJ\^ ^ A 

£CaL^)j]I (J.)»->.d lixk 0jtjj ^gic. Lade- jgJaJ ; L0C|iC ElTOTS Aajslald fUaikl -Y 

\ 1^-^. ^ M 1 A 1 Q^ a ^1 Ajlj La djlA_P-l_ix^a t, ^ ^ i 

jj£j La Ulc.j ^LjjI! Jjidj dc. 4iid&! ^jj; Run Time Errors fUisi fUait -T 

(jLnl! (Jja jjLnl] ^ J ) <a>. a «a j l (_£.1 a]I j )a (Jal jl Aaj 3 ^aJj^aiL -lie (_Ja> (J-^ ^Ij^VI 

. jjtiali j £ jU. ^uili iiaj Over Flow ^JLo,j j . Byte o* 

; <A kM-\\l AjU»ti \;an CliLjljl \ AjjLuiaJI CjULaxJl 
QjajH jLoull j)A £-aaJ! -t jjjAjll ^)Laull j)A A.At.i. > a]l j L_)^)jJa]! -V (JajoiVI -Y (JjoIjSVI 


j j! _^Jua j)A j\ o^^ysA Aaj3 AjLluoj ^ Au (_}aLla Aj^\j (_ja ’ ^gja^ulll jjjuTl 

False True ^A^ali LkLj ciud _$! jj*ja ^a ji s^^^a aajs ^a i^LjUa 

■ aJjULjJI (JjjLabua 


^ jLjjj jl ^ jS\ 

> = 

0* 

> 

^jLujj 

= 

^ jLujj jl ja-ufll 

< = 

(JA J*-^l 

< 

^ jLujj V 

< > 


Private Sub Buttonl _ 
Dim X As Single 
X = TextBoxl. Text 
IfX>= 50 Then 
MsgBox ( "^L") 
End If 


Click 


. ^iia c5-ij3 jLl^.1 ^>aI ja ; if.. Then pjill) - 

Then ^jL LLyTrue ia^dli aajS duis lit 
End If La iaij False aaJ I ji j 

^ JtjA 

JJ aJLaj £Ca'u^)J 

50 L^jtjoLj j! ^a X dul^ I jl 



; (jjLju.li ^- jjij>A jiiidi jaI i If „ Then .. Else ^-Laa. p jis^i 
Then ^ La iaL True Jajdli AAja djj\£ I j| 
Else 4-aK La iib False «—ul£ 13!J 


Private Sub Buttonl _ Click 
Dim X As Single 
X = Me . TextBoxl. Text 
If X >= 50 Then 
Msgbox ("£*13") 

Else 

MsgboxC's^b") 

End If 


Private Sub Buttonl _ Click 
Dim N As Long 
N = Me . TextBoxl. Text 
If N Mod 2 = 0 Then 
Msgbox ( M ^jj fM") 

Else 

Msgbox ("ci-U* fM") 

End If 



o , jjLa j! (IjajjSI X Aaja i j) 

ULUltj ASLuiJ (JAjXJ o > [jA Jal jij AjLulJ 









ju*u jjAj ^.ij Jc |f |f.. Then .. Else j If.. Then ^ 

. End If ^ 

(j/Tu/rvIlIj Aju 

If X >= 50 Then Msgbox (" ") Else Msgbox (" j") 

. |f aL^. cjikb End If j Else J I a » . ku I - 

Button 1 ^=dli si^v Click dj^Ji W*,>y\h ALLdi d jSVI idd ^ - 

Ajuaj .idj jJtLa AajS OaJxa ^ j3j]I jjfd LaAk- ^Vlml I Select .. CflSe c)duuilj p jilll - 

dj)g *ii ^)j£l JSj£ll (J*~>JJ (j-a -AJ-isJl ^)3 jj Aj! LaS c o^liS Jaj^)jai 


Private Sub Buttonl _ Click 
Dim Degree As Single 
Degree = TextBoxl. Text 
Case 0 

Labell. Text = ">s " 
Case Is < 0 
Labell. Text = " 

Case Is > 0 ( Case Else ) 

Labell. Text = Jj*" 
End Select 



(Tklj Sj! jaJl Aj^jJ -Ik- idL 

<lLa!j j$kj Text Boxl ajL£1! 

Labell Jib 



A-aU cliUkdiLa 


. jk^ qa j&\ 'jc. Ajt&il Multi Line = True v-^ddi - 
. <>***-=211 frifil List Box ji Combo Box s IjI j_k-d Aiu^v Items - 
. jL^» ^Sjli <> List Box ji Combo Box sbi ^ j*-aU*li ^jj - 
. >^*l ' fSj jkd index ^ik-adi - 

Selected index 4a*-ataJI ^ - 


Combo Box j List Box jx aVi dn^Ji ja Selected index changed dj^Ji - 


o 









: For.. Next 4JUaJt 

CjIjaII qa ^Aa^ ^jja-a jl j£d ^ L_lC.^)j LaAjc. ^AaJluU 

( AjjLnik! ) sjIj^]! J-nx-a Step - j! ajI^j Next 4 - jl j£j]I aj!.ij -}a=u For A^al£ - 

) jl^LaJ Ujlilj A} jj jIaxII (j\i Step A-al£ A-Aj£ ^-ic. AJLa. ^ - 
Ajjiiiii Next - 


r jm (> ji jcvi ^ 

4jLuijii ja 


Private Sub Buttonl _ Click 
Dim M As Integer 
For M = 1 To 3 
Msgbox (M) 

Next 



Private Sub Buttonl _ Click 
Dim m as Integer 
Textboxl. text = " " 

For m = 1 To 3 

TextBoxl. Text = TextBoxl . Text & m 
Next m 


Dim m , Product As integer 
Dim str As string 
Textboxl. text = " " 

For m = 1 To 12 
Str = 3 & "x" & m & "=" 
Product = 3 * m 
Text Boxl. Text = Textboxl, 
product & VbCrLf 
Next m 



text & str & 


r > <> o^jz 

Text Box 


T JA*Ji U4 jjJt a JjAai ,jia 



) Y ) (JA (j-alaJl M C5-' fta ^ Jjili-a]! CF U^VI ^ - 

Product = 3 * m Product Cf u^VI £ - 

Str = 3 & "x" & m & "=" m J l£A? Str ^Cf u^-c-VI ^ - 

Text Boxl. Text = Textboxl. text & str & product & VbCrLf 4l*aJ! - 

. Text Boxl t-aJ L_ljjAall JjAa. (J£joU L-ljjAal! JjAa. ^cjU Jajj 

Num L)^J Y ^^>11 (JaILoU ^Akllu^all Al^Aj (_$l L-JjjAa (JjAa. A£.LlL AJta. ^ - 

0 . Num = Text Box2 . Text ^ ^ - 



























Text Boxl sU <Jkl j l-ijUxaII ^ aLLuJI aIIaVI ^gi - 

. Text Box j j£]i L> *ii Label u' sbi <J^.l <-_i j\U*\\ o^jc. ^p\u lii - 


For.. Next JdL* jgJaat JLU - 


Dim K , Sum As Short 
For K = 1 To 10 Step 3 
Sum = Sum + K 
Next 


K 

Sum 

1 

1 

4 

5 

7 

12 

10 

22 

13 

jA 


till ja t (jjiuA jl jSj]| till ja - 

JU 11 (jA (_gl aJLaaII L_l_jliaA ^A IaI jjiixu. L^jLuaI! (Jj«^?- 5 I (JaC- t> **-} 

Label 1 j Text Boxl . Text = Text Boxl . Text & K J Msg Box ( K ) 
Combo Box jt List Boxl . Items . Add ( K ) J 

Next J For OH L# jlj^jll (Jilla^vlyl 0^ 4 4 4 lg ^‘\nu ^^1 K Aaj3 Jjjj AjI ^.'xaj 

4,7,10 J K 

Sum = 1 , 5 , jAh Jj£tfi <J»ta Sum ,>Vi j^IaII aaJ ^iia jl u^i 3 


jA IaI A-IjI g ‘ill AajsII ^_u3^)xj.jgi Next Aa1£ -Ixj ^1 ^^)Lk AaiLuill (JjLui^)]I ^ja (_jl -1 >j lit IaI - 

Sum = 22 <jj£iui JjSsll ^jU. Sum ^ c ilia jlj K = 13 es-^ 


aja]l (J£ (jla^aJLoi Sum J’ K JJ*^a]I Aaj3 L-lUaj AiLL.JI (JjLoi^)]I (jA aILoij (_£I aIIa. ^ IaI - 

^^Aj IgJ liL-aj AaoS ^kl L. n*S n>i jojua (_^V AjjI g ill AaosII c_iila SJja.^a1I 

Sum = 22 j K = 13 


(J.1xa (jjfLi (jl 4 . laA Ajlgill Aaj3 (Ja jj^I AjI^jJI AajS dul£ 131 ; For .. Next jaVI a3> j=Ju - 

For K = 10 To 3 Step-3 

^^yxC. ^3^) SjLj^ll (J-1 xa jl AjI^aII jl AjIdJl Aa. 13 (j^£j (jl (j^Ai - 


0 


jjxIa S^Laj]! (J^xa jl Ajlg-ill jl AjIoJI AajS (jj^J (jl (j^AJ - 

ForK= 1 To B Step C 

























: Do While - 

Iqnn<a Alljlg j L_flj^)*-a JJC- dll^all ^j-a .Xixl Qi*-a ^a-liajajJ 

True A-aJ3 clljl£ LalUa Jj^l! Jjlilj ^aJJ . (ja*-a JajJj ^-Sc- LLb jl J&J - 

Loop La ^ilj . False Aa}3 7: n^»~l La-lic. Ajj! AiiaJl ^j-a j^pJl ^aJJ - 


Dim N, i As Integer 
N = Text Boxl. Text 
List Boxl. Items . Clear () 
i = 1 

Do While i < = N 
List Boxl. Items . Add (i) 
i = i + 2 
Loop 


Aj (S\ ifh \ 0* ^Vt U<aj*l 

. List BoX ( N ) <I 14 j 


i jList Box Shi Jib Egypt AiUaV - 
List Boxl . Items . Add ("Egypt") 

■ jj£j) List BOXl SIjVI j^aLaJl ft-iaa. - 

List Boxl . Items . Clear ( ) 

al^jJLu Clear j Add ^ - ^l*. jiu; items - 


Do While j For Next ^ oA~v > « ,a \ t aIa^u ^aj y ^ jj]i ji.ic.vi l- 


Dim N , i, Sum As Integer 
N = Text Boxl. Text 
i = 1 

Do While i < = N 
Sum = Sum + i 
i = i + 2 
Loop 

Labell. Text = Sum 


Dim i, N , Sum As Short 
N= Text Boxl. Text 
For i = 1 To N Step 3 
Sum = Sum + i 
Next 

Labell. Text = Sum 


SIjI JV-i 0- 4 AJ 4 _<u 2 A .jfr Al^Jj ill ) N jJfci-dl (jia jS - 

( N TextBoxI u ) N = Text Boxl . Text ^ 

0 











Dim K as Integer 

Do While K < = 5 

= 1 



dJb jJ! Jja-a Jjjj 

K = K + 2 

1 

Loop 

SjbjJl J-l*_a Aju 



•*- jljSSII EJ li 


: Do While J^a Jliu 

aJLuiaII ^ AjI L_l^jlia-all l_S^)*j La (Jj 3 Lg-Lajt-j A_^Li. (Jjl 

False -lajLiii ? r u^»j LS ^. cK 4 

1 , 3 , 5 , 7 if* JlJftVI 


(jc- jaaLLall LajS Jjjlc. jA t—Sjjklj l&JbUj 

Combo Box j' List Box j' Label j' Text Box j' MsgBox 


K = 1 , 3 , 5 gM oA ( ^ J (_54 ) (_J^ 

K = 3,5,7 g2Ull oA ( <Jjl qjAj ) Ajjlljt-ail 
K = 7 uj% (^j C 5 % ) loop ^ 

K = 1.3,5,7 r l5jVI J£ JL3* *1L, 


Sum >' H ^ £j^' Su 


^jVI illaJI 


Dim K , sum as Integer 

k = 1 \%i 

Do While K<= 5 
Sum = Sum + K 
K = K + 2 



^" & y s jjslLaI] AojI g III 
aJu ^ Do While >' 


Sum 
SjLji! Jjjua JjS 
jja.VI fSjll OJJJ Jfe 


Labell . Text = Sum 

Sum = 9 ^ 


Dim K , sum as Integer 

K = 1 

i/ ^ c 


uu tv 1111C 1\ s - J 

K = K + 2 

Sum = Sum + K t 

Loop 

Labell . Text = Sum 

Sum 

SjL ji! jju JjS 
JjVI f&jll CxS^i ufei 


Sum = 15 LuS 


K 

Sum 

1 

1 

3 

4 

5 

9 

7 



K 

Sum 

1 

— 

3 

3 

5 

8 

7 

15 
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!3fc frlc-jlall -lie. 

cIh*’' 0 I cil=j CjUuLuIIj j*!jV! t> ^ Procedure 4**1 

; (j-a (jlfrjj <3 Ua . ^a!jV! o3fc .VqVi 

- Lpl$j o 3 ^ 5 ^ 1 cW cji Vj - <u3j jj*j V : Sub 4,**l - ^ 

^}3jJ 4-i! cLua. - <■ ajn^»l\l (J^lj £jJa^a (jx ^)ii£! C5^ C—lO^j «l_j£ lij3 (jl^ I3 ^.IVuhJ - 

Sj-a qa j!i£! 4 jIc.3joi!j S. 1 ^!j e^a (jo (j^ilc-Vlj ^»jii - . (J^-^-a (jx jj£! ^ Jj£l! 4 Aj£ 

.End Sub -t Sub -i 4j^V! 30 3^^' & - 
43>VI <tl&^iail .ik. elj^Vt .1j£ 3ib Ig^al.iVinil ^jjjuo ,^3! ^31! 3 c. SjUc. ; Parameters .l3Luij]! - 
. (iaibujj 3) . Parameter 3* j-&! nw l (jfLu 4j^.VI 30 -iio _ 

. (jJjiivi (joj 3^' 4u3! Argument 3at*-a i$3o 3lLu 3j^-Vi ^jb. <3* ^3 3j^.Vi c.Io.ilj .lie. - 

u° 3*^ u_& u' ) 03 ** j4jV! t> 30 0jbc. ; Function <U|jJ| -X 

^y<a \ 1 >. 4 ^»jQ ^ ^ n. Vu jjj \_£j| l ** n^ — 4 a \Q 1 ^1 1** A a ^ \n 1 ^ Q^n ]*■>% P\ \ ^ ^ 1 ^ *^Q ^ 

. End Function -j c^Ljj Function -} -Wl u& cP^^\ bs . i$l 4^n^3 ! 

djI^VI dllpl^j^l jl dulii ^! jjjiiLa jjC; 3^ C- '4 L-Ln^aill 3^3 is* (j^-aJ 

Sub Showoddoreven ( ByVal Start As Integer) 

Dim i as Integer 
Labell. Text = "" 

For i = Start To 10 Step! jf' 

Labell. Text = LabelL,^&K " " & i 

Next 

End Sub 

Showoddoreven : ( Sub ^ b») ^1 - Sub ^ji - 

. Integer :jUj ^ji _ Start : (Byval <4£ o*j ) VI JaiUj - 
. 2 s^ljjll J_ 10 - Start - End Sub : 4 j^VI <A&i - 

Function X ( ByVal Y as Integer , ByVal Z as Integer) As Single 

Code 

Return R 

End Function 

( Byval <4^ ^?La) Y , Z : 4131 Jailujj _ (Function ^ ^) X : 413! - 

( Return 43£ i*jU) R: 4^.1 J\ 4*41! - Integer : jUj ^ji _ 

^ (j3_jsVI La ^ Single ! a x>jq\lj <113! - 


© 









Aajj^jj^lVI JajLujj (j-aauuo <_ja .lAJtlLa t^ljLui (jc- bj)[jc. 

( IAjjc-j jl jjjVIj CjH^al! - i—SJjaall - ^l^>^VI - >>>«a\l - (jilaal! ) 

: <jd£>£J2l \to iiSiii ni l (>UI <yy£j£J2l JadU$JI 


Forums ^pjj^VI caLiH^I _\ 
Bloging c^jj^V! -t 


E-mail cjj^I -) 

Instant Message -? 

. Face Book AaoUi^V! ^SIjaII -© 

: ^$>£121 jyj 

: Anonymity zl 

L_lta*J! (ja Cl^/liVI J ^gjjjJ^lVI (_£.lxla]| A n.o-SCu ^qVi ojlxlmo pLajai! alAaJLal jc- SjUfr 

: Harassment VjjSShM ^ULiLuxdl -V 

jj£I j! j/iS >m JU-ia A^_aja AjjI^C- (JjLujj jc- Sjlac- 

: Cyber Stalking Al^^Ull -T 

AiLa^iLaJ j^jSlLa j£I Aaj I dltsjLjaall (Jl^jal ja J^Cu 

: Flaming <-*&! jl -* 

jl (j^aajuj .liCa Aj.lnaj Ajj!.1c. Clilal^ ^jaj jc- ejlac- 

: Outing iA$j^l -° 


)Vi\ *>ijll Ail£ ^ jjxa 


f-^uiA (J^jjLj _jl (j^aa_iuj (jC- CliLa^Lua jdj jc. S^jljC. 

: Exclusion fUSs^iVI -‘v 

Aajjjjil! J-»^\ mj (J^La J^l jl (jAlaa jc- Sjlac. 

: Cyber threats ^jjt - v 

j! Jjc-j J jaal Aaj(JLoi^jj jc- e>j)\jc. 

? <jd$>£J2l ^ J«ad 

^ILua V ^ <aK l!cc.j -Y _ 4 al£j .lal V - ^ 

^JbCil! (JjLujJ t_aia. ^a^E. _ £ _ A j^al -S CljljUj (_gl Jjad ^alC. -V 

l. n>>6 Ai\_a Clijlj (JjLoij jLaijI a^c- -1 . ClujljVI (J^a £y* Aalc. Clia^)*j ia.! aLILo ^Ic. 

Clu^jliVI ^ICalLail Aic- tilajLCaJ LoJ ^jaVI ^j ^“^Ual -V 

tiljal jl tdaWa L_al^Cuj Cliaa (jj^J dujljVI <j-a 


O 








